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WE NEED MATERIAL FOR THE NEWSLETTER. REVIEWS OF HARDWARE 
& SOFTWARE, PROBLEMS, PROGRAMS. . . . WHATEVER. PLEASE WRITE 



I AM R UNIVERSITY PROFESSOR IN KOREA TEACHING MIS. I HAVE 
JUST ACQUIRED A TRS-88, LEVEL II, 16K WITH A MINI DISK. AND 
CURRENTLY I AM RUNNING TEST PROGRAMS WITH VARIOUS DEGREES OF 
SUCCESS. SINCE I AM THROUSANDS MILES AWAY FROM THE US, I AM IN 
NEED OF SOMEONE WHO DESIRES TO HELP ME IN RESEPCT TO GENERAL 
ASPECTS OF THE SVSTEM OPERATION BV CORRESPONDENCE. I WILL BE 
HAPPV TO RECIPROCATE ANY FAVOR OFFERED IN POSSIBLY EQUIVALENT 
VALUES. DR. NAM-WON SUH 

SCHOOL OF MANAGEMENT 
KOREA UNIVERSITY 
SEOUL 132, KOREA 



DEAR SIRS: 

I WISH TO PURCHASE THE AUGUST & SEPTEMBER '78 ISSUES 
OF CLOAD MAGAZINE. IF ANYONE IN YOUR GROUP IS INTERESTED 
PLEASE CONTACT MARK HARDENBURG 

1838 BRUNELLA AVE. 

PI SCAT AWAY, NJ 68854 



CHANGE TO THE MAILLING LIST PROGRAM ON PAGE 22 

LINE 176 IN STILL NOT RIGHT - IT SHOULD READ 
* * 176 LR*L0F<1)*3-5:IF LRO0 THEN LR=8 * * 



THE 



BITPICKER' S 



TOOLBOX 



By Steve MacGregor, 3701 W Wethersf ield. Phoenix, Arizona 85029 

The built-in BASIC function RND returns what are known as 
"rectangularly distributed" random numbers, that Is, any number 
between zero and one (If the argument Is zero) or one and n (If 
the argument Is a positive integer) has the same chance of being 
generated by the function as any other. For some purposes, you 
may want "normally distributed" random numbers, those that fit 
the infamous bell-shaped curve. The following subroutine will 
produce such numbers in the variable R. The integer variable 
R% is used as a temporary loop-count. 

5000 R— 6: FOR BjC-0 TO 11: R-R*RND(0): NEXT R%: RETURN 

The values returned by this subroutine have a mean of zero and a 
standard deviation of one. 





88816 




88828 




88838 


G1A19 


88048 




88858 




88860 




88878 




88888 




00090 




90188 




88118 




88128 




08138 




00146 




OOlJO 




00160 




80170 




88188 




80190 




00200 




06210 




00220 




88230 




08248 




00258 




80260 




88270 




80288 




80290 




80380 




80318 




88328 




88338 


7FAB 


88348 




88358 




88368 


7FAB AF 


88378 


7FAC 001282 


88388 


7FAF CD7F9A 


88398 


7FB2 8E60 


88488 


7FB4 1825 


88418 


7FB6 CD8782 


88428 


7FB9 5E 


88430 


7FBA 7B 


88440 


7FB8 CD6482 


00458 


7FBE 23 


86468 


7FBF 56 


80478 


7FC8 7ft 


86488 


7FC1 C06482 


88498 


7FC4 23 


08588 


7FC5 7E 


88518 


7FC6 CD6482 


88528 


7FC9 23 


88538 


TFCfl 81 


88548 


7FC8 4F 


88558 


7FCC IB 


86568 


7FC0 7ft 


88578 


7FCE B3 


88588 


7FCF 28F4 


88598 


7FD1 79 


88688 


7FD2 CD6482 


88618 



;THE LEVEL II PRINT#-i STATEMENT LEftVES MUCH TO BE 
i DESIRED -- THERE'S NO CHECKSUM, OVERHEAD IS HIGH 
i (ESPECIALLY WITH SHORT DATA LISTS), AND YOU HAVE TO 
; SPECIFY EVERY INDIVIDUAL DATA ITEM IN THE LIST. 

;THE FOLLOWING ROUTINE HILL SAVE AN ENTIRE ARRAY TO TAPE 
; SORRY, IT WON'T WORK WITH STRING ARRAYS (THEY'RE STORED 
DIFFERENTLY) — CALL THE ROUTINE WITH USR (FIRST 
;POKE 16526,171: POKE 16527,127) - SEE MANUAL PAGE 8/7. 

;T0 WRITE ARRAY "A" (ONE-DIMENSIONAL) ONTO TAPE: 

; POKE 32693,8: 'THIS TELLS THE ROUTINE TO WRITE 

i N=VARPTR(A(8))-5: N»USR(N) 

; THE USR ARGUMENT TELLS THE ROUTINE WHERE THE ARRAY IS. 

i TO READ ARRAY "ft" : 

i POKE 32693,37 'SWITCHES TO READ ROUTINE 

i N*VARPTR(A(8>>-5 

i IF USR(N>»8 THEN PRINT"BAD LOAD* (OR WHATEVER) 

; (USR HILL RETURN NON-ZERO VALUE IF THE TAPE LOADS OK) 

; THE ARRAY READ MUST HAVE SAME TYPE AND DIMENSION AS THE 

i ARRAY WRITTEN - OTHERWISE IT IS REDIMENSIONED, WITH 

; DISASTROUS RESULTS TO THE READING PROGRAM 

iONE CAUTION: REFERENCING A NEW VARIABLE WILL CAUSE THE 
i ARRAY TO MOVE! (STORAGE IS REALLOCATED) — "L-USR(N)" 
; WILL CAUSE TROUBLE UNLESS L HAS BEEN PREVIOUSLY ASSIGNED 
; (LIKEWISE 'INPUT'CASSETTE READY";A*', IF A$ HAS NOT BEEN 
; REFERENCED PREVIOUSLY) 

iFOR A 2-OINENSIONAL ARRAY, N-VARPTR(A(8,8))-7 
iFOR 3 DIMENSIONS, N-VARPTR(A(8,e,8))-9, ETC. 

ORG 32683 ;CODE IS SET UP FOR 16K (SPECIFY 
; MEMORY SIZE 32683), BUT IT IS RELOCATABLE AND YOU CAN 
,PUT IT ANYWHERE IN AVAILABLE MEMORY 



WRITE 



XOR 


A 




CALL 


538 


TURN ON CASSETTE 


CALL 


2687 


GET USR ARGUMENT (ARRAY LOCATION) 


LD 


C,8 


INITIALIZE CHECKSUM 


JR 


INPUT 


READ/WRITE SWITCH (DEC 32693) 


CALL 


647 


WRITE LEADER 


LD 


E, (HL) 


LSB OF ARRAY BYTE COUNT IS AT 


LD 


A,E 


VARPTR(A(8))-5 


CALL 


612 


WRITE IT 


INC 


HL 


NEXT BYTE IS MSB OF COUNT 


LD 


D, (HL) 


(DE COUNTS NUMBER OF BYTES 


LD 


ft, D 


WRITTEN) 


CALL 


612 


WRITE MSB OF COUNT 


INC 


HL 


MOVE TO START OF DATA 


LD 


A, (HL) 


SAVE ARRAY CONTENTS TO TAPE. 


CALL 


612 


WRITE THE BYTE 


INC 


HL 


MOVE TO NEXT BYTE 


ADD 


A,C 


UPDATE THE CHECKSUM 


LD 


Cft 




DEC 


DE 


DONE VET? 


LD 


ft, [> 


IF SO, D AND E ARE BOTH 8 


OR 


E 




JR 


NZ, WRITE 




LD 


A,C 


WRITE CHECKSUM 


CALL 


612 
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7FD5 CDF881 


00629 


7FD8 C29A8A 


00630 


7FDB CD9602 


00640 


7FDE CD3502 


00658 


7FE1 5F 


60660 


7FE2 CD3502 


00670 


7FE5 57 


00680 


7FE6 23 


00690 


7FE7 23 


00700 


7FE8 C03582 


00710 


7FEB 77 


00720 


7FEC 23 


00730 


7FED 81 


00740 


7FEE 4F 


00750 


7FEF IB 


80760 


7FF8 7fl 


m77Z 


7FF1 B3 


00780 


7FF2 28F4 


00790 


7FF4 CD3582 


00800 


7FF7 B9 


80810 


7FF8 28DB 


80820 


TFFfl 210060 


00830 


7FFD 18D6 


00840 




00850 




00860 




00870 




00880 




80890 




00900 




00910 




08920 




00930 




00940 




00950 




WjZTOO 




00970 




00980 




00990 




01800 




01010 




01020 




01038 




01040 


7FD5 


01050 


00880 TOTAL ERRORS 


fcEAD 7FE8 




DONE 7FD5 




WRITE 7FC5 




INPUT 7FDB 





DONE 



INPUT 



READ 



CALL 


504 


,TURN OFF RECORDER 


JP 


2714 


, RETURN TO BASIC 


CALL 


662 


;WAIT FOR SVNCH BVTE 


CALL 


565 


;GET BVTE COUNT LSB 


LD 


E,A 




CALL 


565 


;BVTE COUNT MSB 


LD 


D,A 




INC 


HL 


;MOVE UP TO START OF DATA 


INC 


HL 




CALL 


565 


;NOU READ THE DATA BYTES: 


LD 


<HL>,A 




INC 


HL 


;NEXT BVTE 


ADO 


A,C 


i CHECKSUM IN C 


LD 


C,A 




DEC 


DE 


;DE HOLDS COUNT 


LD 


A,D 




OR 


E 


iZERO IF DONE 


JR 


NZ,READ 




CALL 


565 


;GET THE CHECKSUM 


CP 


C 


; IS IT RIGHT? 


JR 


Z, DONE 


i OK LOAD RETURNS NON-0 IN HL 


LD 


HL,0 


; BAD LOAD RETURNS ZERO 


JR 


DONE 





; INCIDENTALLY, YOU CAN ALSO USE THIS ROUTINE TO 

iSAVE AND LOAD OBJECT FILES: POKE THE BVTE COUNT INTO THE 

;TWO BVTES BEFORE THE FILE - FOR EXAMPLE: 

; TO SAVE A 308-BYTE BLOCK AT 25610. . . 

;POKE 32693,0: POKE 25608,44: POKE 25609,1: N=USR<25688> 

i TO RELOAD IT: 

;POKE 32693,37: IF USR<25608>=8 PR I NT "CHECKSUM ERROR" 

; TO SAVE STRING DATA, POKE THE ASCII VALUES INTO 

;A BLOCK OF MEMORY AND SAVE THE BLOCK. 

; IF YOU WANT TO POKE THIS IN FROM BASIC, HERE ARE THE 
; DECIMAL VALUES FOR THE CODE (FROM 32683 TO 32766) : 
; 175, 205, 18, 2, 285, 127, 10, 14, 0. 24, 37, 205, 135, 2, 94, 123, 205, 
; 108, 2, 35, 86, 122, 205, 100, 2, 35, 126, 205, 100, 2, 35, 129, 79, 27, 
; 122, 179, 32, 244, 121, 285, 108, 2, 285, 248, 1, 195, 154, 10, 205, 
; 150, 2, 285, 53, 2, 95, 205, 53, 2, 87, 35, 35, 285, 53, 2, 119, 35, 129, 
; 79, 27, 122, 179, 32, 244, 285, 53, 2, 185, 48, 219, 33, 8, 0, 24, 214 
; PHELPS GATES 6 CRESTWOOD TR. PK. - RT. 4 

i CHAPEL HILL NC 27514 (919) -967-5133 

END i 3/5/79 



INPUT AND RUN 'PATCH' BEFORE YOU START YOUR PRINTER 

AND YOU HILL GET 60 LINES 
108 A=4096O-65536 ON A PAGE. AT THE END OF 

110 READ B YOUR RUN TYPE 'LPRINT 

120 IF B=300 THEN 200 CHR$(12> AND SET THE 

120 POKE A, B PRINTER ON THE NEXT LINE. 

135 A=A+1 
140 GOTO 110 

150 DATA 245, 197, 213, 229, 33, 41, 64, 126, 254, 60, 204, 20 
160 DATA 160, 225, 209, 1,93, 241, 195, 141, 5, 62, 0, 50, 41, 64 
170 DATA 6, 6, 5, 3, 62, 10, 205, 59, 0, 8, 200, 195, 27, 160, 308 
200 POKE 16424, 61 : POKE 16425,0 
210 POKE 16422, 0: POKE 16423,160 



DATA "NOP", "00", "00", "000", "00800008", "NOP", "0" 



DATA"LXI B", "01", 
DATA "ST AX D", "02" 
DATA" I NX B", "03", 
DATA"INR B", "04", 
DATA"DCR B", "05", 
DATA"MVI B", "06", 



'01", "801", "00000001", "LD BC, NN", "2" 
"02", "002", "00000010", "LD <BC>, A", "0" 
'03", "003", "00000011", "INC BC", "0" 
"04", "004", "00000100", "INC B", "0" 
•05", "005", "00000101", "DEC B", "0" 
"06", "006", "00000110", "LD B, N", "1" 

8 DATA"RLC", "07", "07", "007", "00008111", "RLCA", "8" 

9 DAT A" DAD B", "89", "89", "811", "88881881", "ADD HL, BC", "8" 
18 DATA"LDAX B", "18", "8A", "812", "88881818", "LD A, <BC>", "8" 

11", "0B", "813", "88881811", "DEC BC", "8" 
12", "8C", "814", "88881188", "INC C", "8" 
13", "8D", "815", "00081181", "DEC C", "8" 
14", "8E", "816", "88881118", "LD C, N", "1" 
, "15", "8F", "817", "88881111", "RRCA", "8" 
D", "17", "11", "821", "88018881", "LD DE, NN", "2" 

17 DATA "ST AX D", "18", "12", "822", "08010010", "LD <DE>, A", "0" 

18 DATA" I NX D", "19", "13", "823", "88818811", "INC DE", "8" 
28", "14", "824 



11 DATA"DCX B", 

12 DATA"INR C", 

13 DATA"DCR C", 

14 DATA"MVI 

15 DATA"RRC 

16 DATA"LXI 



D", 



19 DATA"INR D", 

28 DATA"DCR D", "21", "15", "825' 

21 DATA"MVI D", "22", "16", "826' 

22 DATA"RAL", "23", "17", "827", ' 

23 DATA"DAD D", "25", "19", "831' 

24 DATA "LD AX D" 

25 DATA"DCX D", 

26 DATA"INR E", 



27 DATA"DCR E 

28 DATA"MVI E 

29 DATA"RAR", 
38 DATA"LXI H 

31 DATA"SHLD", "34". 

32 DATA" I NX H", "35" 

33 DATA"INR H", "36" 

34 DATA"DCR H", "37" 

35 DATA"MVI H", "38" 

36 DATA"DAA", "39", " 

37 DATA "DAD H", "41" 

38 DATA"LHLD", "42", 

39 DATA"DCX H", "43" 
48 DATA"INR L", "44" 

41 DATA"DCR L", "45" 

42 DATA"MVI 

43 DATA "CM A 

44 DATA"LXI 

45 DATA "ST A" 



49 DATA"MVI 
58 DATA"STC 



"26", "1A", 
27", "IB", 
28", "1C", ' 
29", "ID", 
38", "IE", ' 



"832" 
033", 
034", 
835", 
836", 



, "88818188", "INC D", "8" 
, "80018181", "DEC D", "8" 
, "88818118", "LD D, N", "1" 
88818111", "RLA", "8" 
, "08011001", "ADD HL, DE", "0" 

, "LD A, <DE>", "0" 

"DEC DE 

"INC C". 

"DEC E". 



', "0" 
"0" 

"0" 

', "1" 



•2A", "052", ' 
"2B", "053", 
"2C", "054", 
"2D", "055", 



LD <NN>, HL", "2" 
"INC HL", "0" 
"INC H", "0" 
"DEC H", "0" 
"1" 



8" 

'2" 



"00011010" 
, "00011011", 
, "00011100", 
, "00011101", 
, "00011110", "LD E, N 
31", "IF", "037", "00011111", "RRA", "0" 
, "33", "21", "041", "00100001", "LD HL, NN", "2" 
"22", "042", "00100010", 
, "23", "043", "00100011" 

, "24", "044", "00100100" 

, "25", "045", "00100101" 
, "26", "046", "00100110", "LD H, N 
27", "047", "00100111", "DAA", "0" 
, "29", "051", "00101001", "ADD HL, HL", 
00101010", "LD HL, <NN>" 
"00101011", "DEC HL", "0 
"00101100", "INC L", "0" 
"00101101", "DEC L", "0" 
L", "46", "2E", "056", "00101110", "LD L, N 
, "47", "2F", "057", "08181111", "CPL", "8" 
SP", "49", "31", "861", "88118801", "LD SP, NN 
•50", "32", "062", "00110810", "LD <NN>,A", 

46 DATA" I NX SP", "51", "33", "063", "00110011", "INC SP", 

47 DATA"INR M", "52", "34", "064", "00110100", "INC <HL>" 

48 DATA"DCR M", "53", "35", "065", "00110101", "DEC <HL>" 
M", "54", "36", "066", "00110110", "LD <HL>", 
, "55", "37", "067", "00110111", "SCF", "0" 

51 DATA "DAD SP", "57", "39", "071", "00111081", "ADD HL, SP", 

52 DATA"LDA", "58", "3A", "872", "88111818", "LD A, <NN>", "2' 

53 DATA"DCX SP", "59", "3B", "873", "88111811", "DEC SP 

54 DATA"INR A", "68", "3C", "074", "00111100", "INC A", 

55 DATA"DCR A", "61", "3D", "075", "00111101", "DEC A", 

56 DATA"MVI A", "62", "3E", "076", "00111110", "LD A, N" 

57 DATA "CMC 



"1' 



'2" 

■0" 
»0' 
"0« 

■1" 



', "0' 
-0" 

■0" 
"1" 



0" 



', "63", "3F", "077", "00111111", "CCF", "0" 

58 DATA "MOV B, B", "64", "40", "100", "01000000", "LD B, B", "0" 

59 DATA "MOV B, C", "65", "41", "101", "01000001", "LD B, C", "0" 

60 DATA "MOV B, D", "66", "42", "102", "01000010", "LD B, D", "0" 
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61 DATA"MOV B. E". 

62 DATA"MOV B. H", 

63 DATA "MOV B, L", 

64 DATA "MOV B, M". 

65 DATA "MOV B. A". 

66 DATA "MOV CB", 

67 DATA"MOV C C", 

68 DATA"MOV CD", 

69 DATA "MOV C. E". "75". "4B". "113" 

70 DATA "MOV C. H". "76". "4C". "114" 

71 DATA "MOV C. L". "77". "4D". "115" 

72 DAT A" MOV CM". "78". "4E". "116" 

73 DATA "MOV C. A". "79". "4F". "117" 

74 DATA "MOV D. B". "88". "50". "128" 

75 DATA "MOV D. C". "81". "51". 

76 DATA"MOV D. D". "82". "52". 

77 DATA "MOV D. E". "83". "53". 

78 DATA "MOV D. H". "84". "54". 

79 DATA "MOV D. L". "85". "55". 

80 DATA "MOV D. M". "86". "56". 

81 DATA"MOV D. A". "87". "57". 

82 DATA "MOV E. B". "88". "58". 

83 DATA "MOV E. C". "89". "59", 

84 DATA "MOV E, D". "90". "5A". 

85 DATA"MOV E. E". "91". "5B". 

86 DATA "MOV E. H". "92". "5C". 

87 DATA "MOV E. L". "93". "5D". 

88 DATA "MOV E. M". "94". 

89 DATA"MGV E. A". "95". 

90 DATA "MOV H, B", "96". 

91 DATA "MOV H. C". "97". 

92 DATA "MOV H. D". "98". 

93 DATA"MOV H. E" 

94 DATA"MOV H. H". "100". "64". "144". 

95 DATA "MOV H, L". "101". "65". "145". 



96 DATA"MOV H. M" 

97 DATA"MOV H, A" 

98 DATA"MOV L. B" 

99 DATA"MOV L. C" 

100 DATA"MOV L. D". 

101 DATA "MOV L. E". 

102 DATA "MOV L. H". 

103 DATA "MOV L.L", 

104 DATA"MOV L. M". 

105 DATA"MOV L. A". 

106 DATA"MOV M. B". 

107 DATA "MOV M. C". "113" 

108 DATA "MOV M. D". "114" 

109 DATA"MOV M. E" 

110 DATA"MOV M. H" 

111 DATA "MOV M. L" 



"67", "43". "103". "01000011". "LD B. E". "0" 
"68". "44". "104". "01000100". "LD B. H". "0" 
"69". "45". "105". "01000101". "LD B. L", "0" 
"70". "46". "106". "01000110". "LD B, <HL>", "0" 
"71". "47". "107". "01000111". "LD B. A". "0" 
"72". "48". "110". "01001000". "LD C. B". "0" 
"73". "49". "111". "01001001". "LD C. C". "0" 
"74". "4A", "112". "01001010". "LD CD". "0" 
"01001011". "LD C E". "0" 
"01001100". "LD C H". "0" 
"01001101". "LD C L". "0" 
"01001110". "LD C <HL>", 
"01001111". "LD C A". "0" 
"01010000". "LD D. B"i 
"121". "01010001". "LD D, C" 
"122". "01010010". "LD D. D" 
"123". "01010011". "LD D. E" 
"124", "01010100". "LD D. H" 
"125", "01010101". "LD D. L" 
"126". "01010110" 
"127". "01010111" 
"130". "01011000" 
"131", "01011001" 
"132", "01011010" 
"133", "01011011" 
"134", "01011100", "LD E, H" 
"135", "01011101", "LD E. L" 
"136". "01011110". "LD E. <HL>", 
"137". "01011111", "LD E, A", "0" 
"140", "01100000", "LD H, B", "0" 
"141", "01100001", "LD H, C", "0" 
"142", "01100010", "LD H, D", "0" 
"99", "63", "143", "01100011", "DD H, E", "0" 
01100100", "LD H, H", "0" 
01100101", "LD H, L M , "0" 
01100110", "LD H, <HL>", "0" 
01100111", "LD H, A", "0" 
01101000", "LD L, B", "0" 
01101001", "LD L, C", "0" 
"01101010", "LD L, D", "0" 
"01101011", "LD L, E", "0" 
"01101100", "LD L, H", "0" 
"01101101". "LD L. L", "0" 
01101110", "LD L, <HL>", 
01101111", "LD L, A", "0" 
01110000", "LD <HL>,B", "0" 
01110001", "LD <HL>,C", "0" 
"72", "162", "01110010", "LD <HL),D", "0" 
"73", "163", "01110011", "LD <HL>, E", "0" 
"74", "164", "01110100", "LD <HL>, H", "0" 
"75", "165". "01110101". "LD <HL>,L", "0" 



, 5E" J 
, 5F" J 
'60", 
■61", 
■62", 



•0" 

"0" 
"0" 
"0" 
"0" 
"0" 
"0" 

"LD D, <HL>". "0" 
"LD D. A". "0" 
"LD E. B". "0" 
"LD E, C", "0" 
"LD E, D", "0" 
"LD E, E". "0" 
"0" 
"0" 

•0" 



"102". "66". "146". 
"103", "67", "147", 
"184", "68", "158", 
"105", "69", "151", 
, "106", "6A", "152" 
, "107". "6B". "153" 
, "108", "6C", "154" 
, "109", "6D", "155" 
, "110", "6E", 
111", "6F", 

"70", 

"71", 



■112", 



156", 
157", 
160", 
161", 



0" 



"115", 
"116", 
"117", 



<HL>,H". 
<HL>,L", 

112 DATA"HLT", "118", "76", "166", "01110110", "HALT", "0" 

113 DATA "MOV M, A", "119". "77". "167". "01110111". "LD <HL>, A", "0" 

114 DATA "MOV A, B", "120", "78". "170", "01111000", "LD A, B", "0" 

115 DATA "MOV A, C", "121", "79", "171", "01111001", "LD A, C", "0" 

116 DATA "MOV A, D", "122", "7A", "172", "01111010", "LD A, D", "0" 

117 DATA"MOV A, E", "123", "7B", "173", "01111011", "LD A, E", "0" 

118 DATA "MOV A, H", "124", "7C", "174", "01111100", "LD A, H", "0" 

119 DATA"MOV A, L", "125", "7D", "175", "01111101", "LD A. L". "0" 

120 DATA "MOV A, M", "126", "7E", "176", "01111110", "LD A. <HL>". "0" 



121 DATA "MOV 


fl. 


R 


", "127 


". "7F 


". "177 


", "01111111 


", "LD A, A", 


"0" 


122 DATA "ADD 


B 




"128", 


"80", 


"200", 


"10000000", 


"ADD 


A, B", 


•0» 


123 DATA "ADD 


C 


, 


"129", 


"81", 


"201", 


"10000001", 


"ADD 


A, C", 


■0" 


124 DATA"ADD 


D 




"130", 


"82". 


"202", 


"10000010", 


"ADD 


A, D", 


•0" 


125 DATA "ADD 


E 


, 


"131", 


"83", 


"203", 


"10000011", 


"ADD 


A, E", 


■0" 


126 DATA "ADD 


H 


/ 


"132", 


"84", 


"204", 


"10000100", 


"ADD 


A, H", 


•0" 


127 DATA "ADD 


L 


. 


"133", 


"85", 


"205", 


"10000101", 


"ADD 


A, L", 


•0" 


128 DATA "ADD 


M 


, 


"134 M , 


"86", 


"206", 


"10000110", 


"ADD 


A, <HL> H , "8" 


129 DATA"ADD 


A 1 


, 


"135", 


"87", 


"287", 


"10000111", 


"ADD 


A, A", 


■0" 


130 DATA "ADC 


B 


, 


"136", 


"88", 


"210", 


"10001000", 


"ADC 


A, B", 


•0" 


131 DATA "ADC 


C 




"137", 


"89", 


"211", 


"10001001", 


"ADC 


A, C, 


»0» 


132 DATA "ADC 


D' 


, 


"138", 


"8A", 


"212", 


"10001010". 


"ADC 


A, D", 


•0" 


133 DATA "ADC 


E' 


, 


"139", 


"8B", 


"213", 


"10001011". 


"ADC 


A, E". ' 


0" 


134 DATA "ADC 


H' 


, 


"140", 


"8C", 


"214", 


"10001100". 


"ADC 


A. H", 


•0" 


135 DATA "ADC 


L' 


, 


"141", 


"8D", 


"215", 


"10001101", 


"ADC 


A, L", 


•0" 


136 DATA "ADC 


W 


, 


■142", 


'8E", 


'216", 


"10001110", 


'ADC 


A, <HL) 


m f .. « 


137 DATA "ADC 


fl 1 


, 


'143", 


•8F", 


'217", 


'10001111", 


'ADC 


A, A". ' 


0" 


138 DATA "SUB 


B' 


, 


•144", 


•98", 


'220", 


•10010000", 


'SUB 


B", "0' 




139 DATA "SUB 


C 


, 


•145", 


'91", 


'221", 


•10010001", 


'SUB 


C", "0' 




140 DATA "SUB 


D' 


t 


•146", 


'92", 


•222", 


'10010010", 


"SUB 


D", "0' 




141 DATA "SUB 


E' 


, 


'147", 


'93", 


"223", 


"10010011". 


"SUB 


E", "0 




142 DATA "SUB 


H' 


, 


■148", 


"94", 


"224", 


"10010100". 


"SUB 


H", "0 


' 


143 DATA"SUB 


L' 


, 


•149", 


•95", 


'225", 


'10010101", 


'SUB 


L", "0' 




144 DATA "SUB 


w 


, 


•150", 


•96", 


'226", 


'10010110", 


'SUB 


<HL>", 


"0" 


145 DATA "SUB 


A' 


, 


'151", 


•97", 


'227", 


•10010111", 


'SUB 


A", "0' 




146 DATA"SBB 


B' 


, 


'152", 


"98", 


"238", 


"10011000", 


'SBC 


A, B", ' 


0" 


147 DATA"SBB 


C 


, 


■153", 


•99", 


"231", 


"10011001", 


'SBC 


A, C". ' 


0" 


148 DATA"SBB 


D' 


, 


'154", 


•9A", 


•232", 


"10011010", 


'SBC 


A. D". ' 


0" 


149 DATA"SBB 


E' 


, 


■155". 


•9B", 


"233", 


"10011011". 


"SBC 


A. E". 


0" 


158 DATA"SBB 


H' 


, 


'156", 


•9C", 


"234", 


"10011100". 


"SBC 


A. H", 


0" 


151 DATA"SBB 


L' 


, 


'157", 


•9D", 


'235", 


'10011101". 


'SBC 


A, L", ' 


0" 


152 DATA"SBB 


M' 


, 


'158", 


•9E", 


'236", 


'10011110". 


'SBC 


A, <HL>", "0" 


153 DATA"SBB 


A" 


* 


■159", 


'9F", 


'237", 


"10011111", 


"SBC 


A, A", 


0" 


154 DATA "ANA 


B 1 


, 


'160", 


•A0", 


'248", 


'10100000", 


'AND 


B". "9" 




155 DATA "ANA 


C 


, 


'161", 


•Al", 


'241", 


'10100001", 


'AFD 


C", "9' 




156 DATA "ANA 


D' 


, 


'162", 


•A2", 


'242", 


•10100010", 


'AND 


D", "9' 




157 DATA "ANA 


E' 




'163", 


'A3", 


"243", 


"10100011", 


"AND 


E", "9 




158 DATA "ANA 


H' 


, 


•164", 


•A4", 


■244", 


"10100100", 


'AND 


H", "9' 




159 DATA "ANA 


L' 


, 


•165", 


'A5", 


■245", 


"10100101", 


'AND 


L", "9' 




168 DATA "ANA 


M' 


, 


•166", 


•A6", 


"246", 


"10100110". 


"AND 


<HL>", 


"0" 


161 DATA "ANA 


fl' 


, 


'167", 


'A7", 


"247", 


"10100111". 


"AND 


A", "9 




162 DATA"XRA 


B' 


, 


'168". 


•A8", 


•250", 


"10101000". 


"XOR 


B", "9 




163 DATA"XRA 


C 


, 


'169". 


'A9", 


'251", 


"10101001". 


"XOR 


C", "0 


' 


164 DATA"XRA 


D' 


, 


•170". 


'AA", 


•252", 


'10101010". 


'XOR 


D", "0' 




165 DATA"XRA 


E' 


, 


'171". 


'AB", 


'253", 


'10101011". 


'XOR 


E", "0' 




166 DATA"XRA 


H' 


, 


'172". 


'AC", 


"254", 


"10101100". 


'XOR 


H", "0' 




167 DATA"XRA 


L' 


t 


'173", 


'AD", 


•255", 


"10101101". 


'XOR 


L". "0' 




168 DATA"XRA 


M' 


, 


•174", 


■AE", 


•256", 


'10101110", 


'XOR 


<HL>". 


"0" 


169 DATA"XRA 


R' 


, 


•175", 


•AF", 


•257". 


'10101111", 


'XOR 


A", "0' 




170 DATA"ORA 


B" 


, 


'176", 


'B0", 


'260", 


'10110000", 


'OR E 


", "0" 




171 DATA "OR A 


C 


, 


'177", 


'Bl", 


■261", 


'10110001", 


'OR C 


», "0" 




172 DATA"ORA 


D' 


t 


'178", 


•B2", 


•262", 


'10110010", 


'OR C 


", "0" 




173 DATA "OR A 


E' 


, 


'179", 


•B3", 


'263", 


"10110011", 


'OR E", "0" 




174 DATA "OR A 


H' 


, 


'180", 


•B4", 


•264", 


'10110100", 


'OR H", "0" 




175 DATA "OR A 


L' 


, 


"181", 


•B5", 


'265", 


•10110101", 


'OR L", "0" 




176 DATA"ORA 


M' 


, 


'182", 


"B6", 


•266", 


"10110110", 


'OR <HL>", ' 


0" 


177 DATA "OR A 


fl' 


, 


'183", 


'B7". 


•267", 


'10110111", 


•OR A", "0" 




178 DATA "CMP 


B' 


, 


•184", 


'B8". 


•270", 


'10111000", 


'CP B 


", "0" 




179 DATA "CMP 


C 


, 


'185", 


■B9", 


'271", 


'10111001", 


'CP C", "0" 




188 DATA "CMP 


D" 


, 


'186". 


'BA". 


'272", 


•10111010", 


•CP D", "0" 
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181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
288 
281 
282 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 



DATA" 

DATA" 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA* 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA' 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA' 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



CMP E", 
CMP H", 
CMP L", 
CMP M", 
CMP A", 



■187", "BB", "273' 
'188", "BC", "274' 
'189", "BD", "275' 
'190", "BE", "276* 
■191", "BF", "277' 



10111011"- "CP E", "0" 
10111100"* "CP H", "0B 
10111101", "CP L", "0" 
10111110", "CP <HL>", 
10111111", "CP A", "0" 
RNZ", "192", "C0", "300", "11000000", "RET NZ", "0" 
POP B", "193", "CI", "301", "11000001", "POP BC", 
JNZ", "194", "C2", "342", "11000010", "JP NZ", "2" 
JMP", "195", "C3", "303", "11000011", "JP NN", "2" 
CNZ", "196", "C4", "304", "11000100", "CALL NZ, NN" 
PUSH B", "197", "C5", "305", "11000101", "PUSH BC" 
ADI", "198", "C6", "306", "11000110", "ADD A, N", "1 
RST 0", "199", "C7", "307", "11000111", "RST 0", "0 
RZ", "200", "C8", "310", "11001000", "RET Z", "0" 
"201", "C9", "311", "11001001", "RET", "0" 

CA", "312", "11001010", "JP Z, NN", "2" 
CC", "314", "11001100", "CALL Z, NN" 



■0" 



0' 



•2" 
•0" 



', "CD", 
"CE", ' 



RET 

JZ", "202", 
CZ", "204", 
CALL", "205 
ACI", "206" 
RST 1", "207", "CF 
RNC", "208", "D0", 
•POP D", "209", "Dl 
JNC", "210", "D2", 
OUT", "211", "D3", 
CNC", "212", "D4", 
PUSH D", "213", 
SUI", "214", "D6 



"315", 
316", ' 
, "317' 
320", ' 
, "321' 
322", ' 



"2" 

"11001101", "CALL NN", "2" 
11001110", "ADC A, N M , "1" 
, "11001111", "RST 08H", "0" 
RET NC", "0" 
, "POP DE", "0" 
JP NC, NN", "2" 
OUT <N>, A", "1" 
CALL NC, NN", "2" 

M H 



11010000", 

, "11010001 

11010010", 
, "323", "11010011", 
, "324", "11010100", 
D5", "325", "11010101", "PUSH DE 
, "326", "11010110", "SUB N", "1" 



RST 2", "215", "D7", "327", "11010111", "RST 10H", "0" 



RC", "216", "D8" 
JC", "218", "DA" 
IN", "219", "DB" 
•CC". "220", "DC" 
SBI", "222", "DE 
RST 3", "223 
RPO", "224", 
POP H", "225 
JPO", "226", 
XTHL", "227" 
COP", "228", 



•330", 
'332", 
•333", 
'334", 
"336" 



'11011000", "RET C", "0" 
'11011010", "JP CNN", "2" 
•11011011", "IN A, <N>", "1" 



11011100", "CALL Z, NN", "2" 
"11011110", "SBC A, N", "1" 
, "DF", "337", "11011111", "RST 18H", "4" 
E0", "340", "11100080", "RST PO", "0" 
, "El", "341", "11100001", "POP HL", "0" 
E6", "342", "11100010", " JP PO, NN", "2" 
"E3", "343", "11100011", "EX <SP>, HL", "0" 
E4", "344", "11100100", "CALL PO, NN", "2" 



PUSH H", "229", "E5", "345", "11100101", "PUSH HL", "0" 



ANI", "230", "E6", "346", 
RST 4", "231", "E7", "347 
RPE", "232", "E8", "350", 
PCHL", "233", "E9", "351" 
JPE", "234", "EA", "352", 
XCHG", "235", "EB", "353". 
CPE", "236", "EC", "354", 
XRI", "238", "EE", "356", 
RST 5", "239", "EF", "357 
RP", "240", "F0" 
POP PSW", "241" 
JP", "242", "F2" 
DI", "243", "F3" 
CP", "244", "F4" 
PUSH PSW, "245 
ORI", "246", "F6 



11100110", "AND N", "1" 
, "11100111", "RST 20H", "0" 
11101000", "RET PE", "0" 
"11101001", "JP <HL>", "0" 
11101010", " JP PE, NN", "2" 
"11101011", "EX DE, HL", "0" 
11101108", "CALL PE, NN", "2" 
11101110", "XOR", "1" 
, "11101111", "RST 28H", "8" 
"360", "11110000", "RET P", "0" 
"Fl", "361", "11110001", "POP AF", "0" 
"362", "11110010", "JP P, NN", "2" 
11110011", "DI", "0" 
11110100", "CALL P, NN", "2" 
365", "11110101", "PUSH AF", "l 



'363", 
'364", 
"F5", 
"366". 



"11110110", "OR N", "1" 
RST 6", "247", "F7", "367", "11110111", "RST 30H", "0' 
RM", "248", "F8", "378", "11111000", "RET M", "0" 
SPHL", "249", "F9", "371", "11111001", "LD SP, HL", "8' 
JM", "250", "FA", "372", "11111010", "JP M, NN", "2" 



241 


DATA' 


242 


DATA' 


243 


DATA' 


244 


DATA' 


245 


DATA' 


246 


DATA' 


247 


DATA' 


248 


DATA' 


249 


DATA* 


258 


DATA* 


251 


DATA' 


252 


DATA' 


253 


DATA' 


254 


DATA" 


255 


DATA' 


256 


DATA' 


257 


DATA' 


500 


DATA' 


510 


DATA' 



EI", "251", "FB", "373", "11111011", "EI", "0" 

CM", "252", "FC", "374", "11111180", "CALL M, NN", " 

CPI", "254", "FE", "376", "11111110", "CP N", "1" 

RST 7", "255", "FF", "377", "11111111", "RST 38H", 

0", "08", "08", "8", "0", "0", "0" 

0", "16", "10", "0", "0", "0", "0" 

0", "24", "18", "8", "0", "0", "0" 

'0", "32", "20", "0", "0", "0", "0" 

0", "40", "28", "8", "0", "0", "0" 

0", "48", "30", "0", "0", "0", "0" 

0", "56", "38", "8", "0", "0", "0" 

0", "102", "66", "0", "0", "0", "0" 

0", "203", "CB", "0", "0", "0", "0" 

0", "217", "D9", "0", "0", "0", "0" 

0", "221", "DO", "0", "0", "0", "0" 

'0", "237", "ED", "0", "0", "0", "0" 

0", "253", "FD", "0", "0", "0", "0" 

SHLD", "34", "22", "042", "00100010", "LD <NN>, HL' 

STA", "50", "32", "062", "00110010", "LD <NN>, A", ' 



2" 



"0" 



, "2' 
2" 



528 PRINT 'INPUT THE STARTING ADDRESS FOR VOUR PROGRAM (DECIMAL) " 

525 INPUT "DECIMAL 57344 - HEX E888 ";B 

530 8=8-65536 

548 PRINT: PRINT" IF YOU ARE ASKED FOR AN OPERAND. YOU MUST INPUT THAT" 

558 PRINT" INFO IN HEX. 8 BIT (EX 5D) OR 16 BIT (EX A85E>':PRINT 

568 PRINT LINEINPUT "INPUT THE 8888 SOURCE CODE CX' TO STOP) ";A* 

578 IF ft*="X" THEN END 

588 PRINT 

598 READ B*. C*, M, E*> F$, G$, HI 

698 IF flf-ftf THEN 628 

618 GOTO 598 

628 PRINT "288 8888 HEX OCT DECIMAL BINARY" 

638 PRINT G*jTAB(12>iB*;TAB(24>;D*;TAB(29)jE*»TBB(36)iC*;TAB(43> 

648 FOR 2-1 TO 8 

658 PRINT NID*(F*, Z, 1); ■ "i 

668 NEXT Z:REST0R£ 

678 POKE A,VAL(C*) 

688 A=A+1:PRINT:H=VAL(H*) 

698 IF H-8 THEN 988 

798 IF H=l THEN 728 

718 IF H-2 THEN 778 

728 PRINTjINPUT" INPUT A 8 BIT HEX NUMBER ";Di* 

730 RESTORE 

748 READ BBS, CCS , DDf . EE* . FF*, GG$, HH* 

758 IF Dl*=DDf POKE A, VAL(CC*):A=fl+i:GOT0 868 

768 GOTO 748 

778 PRINT: INPUT" INPUT A 16 BIT HEX NUMBER "jD2* 

788 RESTORE 

798 READ BBS. CC*, DDf, EE*, FF*, GGS, HH* 

888 IF RIGHT*(D2*,2)-DD* POKE A, VAL(CC*):A=fl+l:GOT0 828 

818 GOTO 798 

828 RESTORE 

838 READ BBS, CCS, DDS, EES, FFS, OGS, HH* 

846 IF LEFTS(D2S,2)=0DS POKE A, VAL(CCS):ft=A+l:GOTO 868 

858 GOTO 838 

868 IF HIDS(6S.4,4)»"(NN>" THEN G1S-LEFT$(GS,4):G2*-MID*(G*,7,4):GOTO 968 

878 IF HID*(G*,5,3)«"(N>" THEN G1S=LEFTS(GS,5):G2S=HIDS(6S,7,3):G0T0 988 

888 IF RIGHTS(GS,3)-"(N)" THEN Gl$=LEFT$(G$,5):GOT0 978 

898 IF RIGHT*(G*,4)«"(NN>" THEN G*"LEFT*(G*»LEN(6*)-4>:G0T0958 

988 IF R1GHTS(GS, 2)«"NN" THEN GS=LEFTS(6S,LEN(GS)-2):G0T0948 

918 IF RIGHT*(G».1>-"N" THEN G*«tEFT*(G*,LEN<G*)-l) 

928 PRINT :LPRINT D«; " ">D1*;TAB(15);G*;D1*:G0TO 998 
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946 PRINT :LPRI NT D$ 
956 PRINT LPRINT D$ 
966 PRINT LPRINT M. 
976 PRINT LPRINT D$. 
966 PRINT: LPRINT M 



• ^RIGHT$<D2*»2>;• ";LEFT$(D2$»2)»TAB(15);G$;D2$:GOT0 996 
" B ;RIGHT*(D2«,2>> a •; LEFT$<D2$. 2); TAB(15); G$> "C;D2$; ')":QOTO 998 
" MtIGHTf<D2S.2>i" 'iLEn$<D2«,2)«TflB<15)iGlfi02$iG2»:Q0T0 998 
■ ■;Dl$;TAB(15);Gl$;"CiDl$;">":00T0 998 

' ■;Di*,TflB(15>,Gl$;Di*;G2» 



998 RESTORE :D1$«":D2$-": GOTO 566 

IF VOU LIKE TO USE SHORT UTILITY ROUTINES CI 5K OR LESS) WRITTEN 
IN 8888 MNEMONIC - HERE IS THE PROGRAM FOR VOU (Z8888) 

SAMPLE RUN * * * 



INPUT THE STARTING ADDRESS FOR VOUR PROGRAM (DECIMAL) 
DECIMAL 57344 - HEX E888 57344 

IF VOU ARE ASKED FOR AN OPERAND. VOU MUST INPUT THAT 
INFO IN HEX 8 BIT (EX 5D> OR 16 BIT (EX. A85E> 



INPUT THE 8888 SOURCE CODE CX' TO STOP) LDA 



Z88 

LD ft (NN) 



LDA 



HEX OCT DECIMAL BINARY 

3A 872 58 881118 18 



3A 83 85 LDR, (8583) 

INPUT THE 8888 SOURCE CODE CX' TO STOP) ADI 



Z88 
ADD A,N 



ADI 



HEX OCT DECIMAL BINARY 

C6 386 198 11888118 



C6 D4 ADD A,D4 

INPUT THE 8888 SOURCE CODE CX' TO STOP) STAX D 



HEX OCT DECIMAL BINARY 

82 882 82 88888818 



Z88 

LD (BC).A STAX D 



*82 LD (BC),A 

INPUT THE 8888 SOURCE CODE CX' TO STOP) SHLD 



LD (NN),HL SHLD 



HEX XT DECIMAL BINARY 

22 842 34 88188818 



22 6E A4 LD (A46E),HL 

INPUT THE 8888 SOURCE CODE CX' TO STOP) X 



RSM-1 V-2. 1 (C) 1978 
SMALL SYSTEM SOFTWARE 
COMMAND? 



D E888 E88F 

E888: 3A 83 85 C6 D4 82 22 6E A4 88 88 88 88 88 88 88 
COMMAND? 



MARCH 25, 1979 
DEAR BOB, 

ONE OF THE FILE COMMANDS OF THE DISK BASIC IS MERGE THIS 
IS A HANDY COMMAND TO HAVE, IT ALLOWS VOU TO MERGE TWO PROGRAMS 
TOGETHER OR TO KEEP A FILE OF SUBROUTINES THEN MERGE THEM WITH 
A NEW PROGRAM AS YOU WRITE THIS WILL SAVE VOU TIME AND MAKE 
THOSE LONG PROGRAMS EASY 

VOU CAN DO THE SAME THING WITH LEVEL II BASIC USING THE PEEK, 
AND POKE COMMANDS THE FIRST THING VOU MUST DO IS EXTEND LEVEL II 
RESERVED MEMORY TO PROTECT THE FISRT PROGRAM, THEN LOAD YOUR 
SECOND PROGRAM OR SUBROUTINE. AFTER LOADING BOTH PROGRAMS THEN 
VOU JUST RESET THE ENDING ADDRESS OF THE RESERVED MEMORY, AND 
YOUR PROGRAMS ARE MERGED 

THE MEMORY ADDRESS 16548-9 HOLDS THE ENDING ADDRESS OF LEVEL II 
RESERVED MEMORY, AND 16635-6 THE ENDING ADDRESS OF ARRAYS ( ? ). 
AFTER YOU LOAD THE FIRST PROGRAM TYPE ( WITHOUT LINE NUMBER, OR 
SPACE ) A*PEEK ( 16635 ):B=PEEK( 16636 >:?A,B AND THEN ENTER. THIS 
WILL NOT BE A VALID ADDRESS IF VOU RAN THE PROGRAM IF VOU NEED 
TO RUN THE PROGRAM VOU MUST FIRST DROP THE MEMORY USED TO STORE 
SIMPLE VARIABLES AND ARRAYS THIS MAY BE DONE BY GOING INTO THE 
EDIT MODE THIS WILL GIVE VOU THE ENDING ADDRESS OF VOUR PROGRAM 
PLUS THE MEMORY USED BY THE PEEK STATEMENT ( 9 BYTES ). NOW TYPE 
POKE 16548, (A-9) AND POKE 16549, B REMEMBER THE VALUES USED FOR 
THE PEEK AND POKE STATEMENTS ARE IN DECIMAL FORM, HOWEVER THEV 
REPRESENT A HEXIDECIMAL NUMBER IF THE VALUE OF A IS LESS THAN 
9 VOU MUST REDUCE B BY 1 AND INCREASE A BY 256. 

VOU MAV NOW LOAD VOUR SECOND PROGRAM, OR SUBROUTINE THE FIRST 
LINE OF THE SECOND PROGRAM MUST BE LARGER « THAN THE LAST LINE OF 
FIRST PROGRAM. THE FEB. 79 NEWSLETER HAS A GOOD RENUMBERING 
PROGRAM ON PAGE 28 BY PHELPS GATES. 

THE LAST ITEM IS TO RESET THE RESERVED MEMORY THIS IS DONE BV 
TYPING POKE 16548,233 AND POKE 16549,66, AND VOUR PROGRAMS ARE 
MERGED AND REDV TO RUN OR CSAVE. 

SINCERELY 

JAMES LIMKEMANN 
7672 BRANCH WOOD CTR. 
FAVETTEVILLE NC. 28384 
(919) 867-6286 



TRS-88 QUALITY SOFTWARE 



LEVEL I AND LEVEL II. 

#1. IDH-I CASSETTE DATA BASE $26. 

•2 INV-I INVENTORY CONTROL #28 

•3 STOCK-I SECURITY INFO $18 

•4 BANK-I CHECK BALANCE $16 

•5 FINANCE-I STOCK-I A BANK-I $15 

DISKETTE 

•12 MAIL-III MAILING LIST $35 

•14 MORD-III WORD PROCESSOR $35 

•21 INV-I I I INVENTORY CONTROL $35 

•22 KEV-III KEY RANDOM ACCESS $15 

PRICE INCLUDES POSTAGE, CASSETTER * DOCU 



LEVEL II 

#11. WORD- I WORD PROCESSOR $25 

•15. MAIL- I NAME AND ADDRESS $25. 

•16 SORT-I SORT UTILITY $18 

•17 STflT-I STATISTICS $16 

•18 KEY- I KEY-ACCESS $16 

•19 SALE- I SALE ANALYSIS $10 

•29 UTIL-I SORT- I * KEY- I $16 



MICRO ARCHITECT 
96 DOTHAN ST. 
ARLINGTON, MA 62174 
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GENERAL LEDGER FOR TRS-88 

THE PROGRAMS CAN GENERATE SEVERAL REPORTS. 

1 PRINT OUT FOR JOURNAL 

2 TRIAL BALANCE. 

3 BALANCE SHEET. 

4 PROFIT AND LOSS STATEMENT. 

5 PRINT A CHARTS OF ACCOUNTS. 

VOU CAN LIST THE ENTERIES TO THE DISPLAY BY REFERNCE #, LIST ALL 
ENTRIES LIST 8B-9eT0 THE PRINTER. VOU CAN ADD OR DELETE ACCOUNTS. 
VOU CAN POST ALL ENTERIES TO THE VEAR TODATE COLOUHNS AT THE END 
OF A PERIOD AVIABLE TO RUN ON ONE DRIVE THE FILES ARE ON DRIVE<1>, 
THE PROGRAMS ARE ON DRIVER<9). THIS ALLOWS APPRO. 83. K STORAGE ON 
ONE DESKETTE. 

ONE DISK SVSTEM $79. B8 M/l .36 P/H. 
THO DISK SVSTEM *88. 00 ME PAV P/H. 
ALLOW 2 WEEKS FOR SHIPMENT. 
PLEASE SEND MONEV ORDER TO T. H. BAILEY SR. 

T. H. BfllLEV SR. 
P. 0. BOX 5319 
AUGUSTA, GR 38966 



Dear Mr. Lloyds 

An inquiry on my SURVEY program published in the 
Volume 2, #1 Newsletter led to the development of the 
inclosed l6K Level II program. It computes the area 
of irregular shaped lots from dimensions shown on plats 
The dimensions are used to find arbitrary coordinates 
of significant points. These coordinates are entered 
into the program to calculate the areas. When one or 
more circular segments are involved, the radii must 
also be entered. The program also computes the angles 
and azimuths of the lines in radians. Azimuths are 
counterclockwise from east. The program could be 
modified to convert angles and azimuths to degrees. 

The inclosed sketch shows the results of the use 
of the program on a sample plat. It illustrates the 
use of interior, exterior and supplementary angles 
fpr the circular segments. 

If those interested will send me a cassette and 
self -addressed stamped envelope (28$), I will send 
them a copy of either SURVEY, ARcA, or both. Also, 
if requested, PASSBOOK from Volume 1 , #7 1 SKETCH from 
Volume 2, #1; and J OTTO. Volume 2, M3- I also have 
PASSBOOK and SURVEY in Level I. If I should get 
swamped with requests, there might be some delay. 

The AREA program will load in 4K but must be 
abbreviated by deleting remarks in order to have 
enough memory to run. 

Yours very truly, 
C. M. ivans 



18 'AREA POLYGON ♦/- CIRCULAR SEGMENTS 

28 'BY C. W. EVANS, (682) 933-1616 

38 '9886 AMBER TRAIL, SUN CITY, AZ 85351 

48 '3/3/79 

58 'RUN 1888 FOR TEST 

iee < INSTRUCTIONS- 



128 as 

138 PRINT-THIS PROGRAM COMPUTES THE AREA OF R POLYGON, 

148 PRINT" ♦/- CIRCULAR SEGMENTS FROM THE COORDINATES OF THE VERTICES 

158 PRINT'THE VERTICES ARE NUMBERED, IN SEQUENCE, 

166 PRINT" CLOCKWISE AROUND THE FIGURE. •: PRINT 

178 PRINT"X AND V COORDINATES, SEPARATED BY fi COMMA, BUT MITHOUT 

188 PRINT" PARENTHESES, ARE ENTERED IN SEQUENCE. ": PR I NT 

198 PRINT-IT NAY BE CONVENIENT TO ARRANGE COORDINATES 

288 PRINT" SO THAT ONE LINE OF A FIGURE LIES ON THE X AXIS 

218 PRINT: PRINT-USUALLY NEGATIVE COORDINATES SHOULD BE AVOIDED. 

228 PRINT: PRINT 

238 INPUT-HIT ENTER WHEN READY"; 2* 

248 ' ENTER COORDINATES 

258 CLS:INPUT"HON MANY POINTS ARE THERE ON THE POLYGON? ";N 

268 P-1:PRINT 

278 PRINT-HHAT ARE THE COORDINATES OF POINT • ">P;- "; 

288 INPUT X<P),V<P) 

298 IF P-N THEN 328 

388 P4>+i 

318 GOTO 278 

328 ' CHANGE COORDINATES? 



338 PRINT INPUT-ENTER NUMBER OF ANY POINT WHOSE COORDINATES 

ARE TO BE CHANGED. ENTER 99 IF NONE";P 
348 IF P-99 THEN X(8>-X(N>:V(8>-V(N): 
X<N*l>-X<l>:Y<N+i>-V<l):GOTO 488 
358 PRINT-NHAT ARE COORDINATES OF POINT • ";P; :INPUT X,Y 
368 X<P>«X:V<P)-Y 
378 GOTO 338 



488 



-COMPUTE ANQLES- 



2-DIRECTION OF LINE, M-INTERIOR ANGLE 



FOR QUADRANTS II OR III 



418 PI-3. 14159' 

428 FOR P-8 TO N 

438 A-X<P>:E-V<P) 

448 B«X<P*1>:F«Y<P+1> 

458 Z-ATN< <F-E>AB-A+. 888881) > 

468 IF A>6 THEN Z-Z+PI' 

478 IF Z<8 THEN 2-2*1+2 

488 IF 2->2*Pl THEN Z>Z-2*PI 

498 2<P)-Z 

588 NEXT P 

518 FOR PI TO N 

528 M<P)-2<P)-Z<P-1>+PI 

538 IF W<P)<8 THEN HCP>-M(P>*2*PI 

548 IF N<P) >• 2*PI THEN H(P>*M(P)-2*PI 

558 NEXT P 

550 . COMPUTE AREA OF POLYGON 

578 K^' K-AREA 

588 FOR P- 1 TO N 

598 D<P)»<X<P)+X<P*1>)*<Y<P)-V<P+1»' 

688 K-K+D<P)/2 

618 NEXT 

£28 PRINT TABLE 

638 CLS: PRINT- COORDINATES OF POLYG0N--2-DIRECTI0N, M-ANQLE": PRINT 

648 PRINT- P X V 2 U 

658 FOR PI TO N 
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D-2 TIMES AREA DIFF 



668 PRINT P; X(P>, Y(P>, 2<P>, W<P> 

678 NEXT 

688 PRINT " AREA = "; K 

698 ' CIRCULAR SEGMENTS 

788 INPUT "CIRCULAR SEGMENT INVOLVED?? <V/N> 
718 IF S*«"N" PRINT: PRINT" FOR ANOTHER LOT--"; :OOTO 238 
728 INPUT"WHAT IS THE POINT NUMBER OF THE CENTER 
738 INPUT"WHAT IS THE RADIUS 

748 INPUT" IS ANGLE INTERIOR, EXTERIOR, OR SUPPLEMENTARY 
(TYPE L E, OR S> ";W* 

THEN 798 

THEN U<P>«2*PI-M(P>: GOTO 798 

THEN M<P)«PI-H<P): GOTO 798 



S$ 



75e IF H$»"I" 

768 IF N»="E' 

778 IF W*»"S" 

788 GOTO 748 

798 PRINT'THE SEGMENT ANGLE, ARC, AND AREA ARE: "; W(P); H<P)*R; W<P)*R*R/2 

888 INPUT" IS THE SEGMENT AREA ADDED TO THE POLYGON (Y/N)";S$ 

818 IF S*»"V" THEN J»l: GOTO 838 

828 IF S»«"N" THEN J»-l ELSE 888 

838 K-K+J*W<P>*R*R/2 

848 PRINT-THE ADJUSTED AREA IS: "; K 

858 PRINT" IS ANOTHER "l : GOTO 788 

1888 ' INPUT FOR TEST 

1818 X(1)»8:Y<1)=195 

1828 X(2>»99. 38:Y(2)«195 9806 Amber Trail 

1838 X<3>*168:Y(3>«168 Sun City. kZ 05351 

1848 X<4)=8:Y<4)=188 (602)933-1616 

1858 P»4:N«4:G0T0 338 march 26, 1979 



TRS-80 Users Group Newsletter 
7554 Soothgate Road 
Fayetteville, NC 23304 

Hey, 

it was great to see my letter in your publication, but I 
now find I have one small error in terminology: not just 
once, but twice, I referred to the circuit as a "lowpass" 
filter, when in fact it is a highp oss filter. 

The TRS-80 responds better to the higher frequency tone, 
and fhat's one of the main purposes of the filter, to be 
sure that the highs are passed and the lows suppressed. 

Oh well, I guv,s everyone is entitled to build one Edsel 
in Sis lifetime. 



Sincerely and 73, 



WB5TSS 

COL J. WESLEY 3. TAYLOR 

P. O. Box 4391 
Wichita Fall*, Texas 76308 



29748 'EVER H1SH YOU COULD CLOflD A LEVEL II BASIC PROGRAM HITHOUUT ERASING THE PROGRAM 

29758 'THAT'S ALREADY IN THE COMPUTER - TO ADD A UTILITY SUBROUTINE AT THE END 

29769 'OF A PROGRAM, FOR EXAMPLE? 

29765 ' 

29778 'ORDINARILY, OF COURSE, CLOAD HILL OVERWRITE THE RESIDENT PROGRAM — THE 

29788 'fJOMPUTER READS THE TAPE INTO MEMORY STARTING AT THE ADDRESS STORED IN 

29798 '16548-9, AND THIS IS NORMALLY 17129. BUT IT HILL ADD THE TAPE PROGRAM 

29888 'ONTO THE EM) IF YOU POKE THE END ADDRESS OF THE RESIDENT PROGRAM (THE CONTENTS 

29810 'OF 16633-34, LESS 2) INTO 16548-9, AS FOLLOHS: 

29815 ' 

29828 ' (1) POKE 16548, PEEK(16633)-2: POKE 16549, PEEK (16634) - IF THE PROGRAM 

29838 'HAPPENS TO END AT A PAGE BOUNDARY, YOU'LL GET A ?FC ERROR, AND IN THAT 

29848 'CASE, POKE 16548, PEEK(16632>+254: POKE 16549, PEEK(16S34)-1 

29845 ' 

29858 ' (2) NOW TYPE NEW (TO RESET POINTERS) AND CLOAD THE PROGRAM TO BE ADDED 

29868 '(ITS LINE NUMBERS MUST ALL BE > THE NUMBERS OF THE RESIDENT PROGRAM) 

29865 ' 

29878 ' (3> POKE 1654& 233: POKE 16549,66 - THIS RESTORES THE FIRST PART OF 

29888 'THE PROGRAM YOU CAN NOW LIST THE MERGED PROGRAM, BUT IT WON'T RUN UNLESS 

29890 'YOU CALL 6904 (IN THE ROM), TO FIX UP LINE POINTERS: 



29988 
29901 
29985 

29918 
29928 

29938 



(4) POKE 16526,248: POKE 16527.26: X=USR(0> 



2/24/79 
H PHELPS GATES 
6 CRESTHOOD TR. PK. - RT. 4 
CHAPEL HILL NC 27514 (919)-967-5193 
29940 'THE FOLLOWING IS A HANDY DEBUGGING SUBROUTINE WHICH LISTS ALL LEVEL II 

29959 'SIMPLE VARIABLES IN A PROGRAM, HITH THEIR VALUES SINCE LEVEL II ASSIGNS 

29960 'VARIABLE SPACE AT RUN-TIME, THIS SUBROUTINE WON'T PRINT ANYTHING UNTIL 
29970 'AFTER THE PROGRAM RUNS — YOU CAN LOAD THIS ROUTINE HITH THE PROCEDURE 

29989 'DESCRIBED ABOVE 

29990 END 

30000 XZI-8: XZZ*0: XZt-0: YZt=" 

38010 'EXPLICIT DECLARATION OVERRIDES ANY DEF STATEMENTS IN MAIN PROGRAM 

38020 VZ!(3>«VARPTR(X»>: VZ!(2>*VARPTR(XZZ>: VZ!(4)»VARPTR(XZ!>: VZ!(8)«VARPTR(XZI) 

30030 F0RN2!»PEEK(i6633>*256*PEEK(16634> TO PEEK ( 16635 )+256*fEEK( 16636 >-i: TZ!«PEEK(N2!) 

30048 'THIS SUBROUTINE USES VARIABLES WHOSE SECOND LETTER IS Z, AND SUCH 

38059 'VARIABLES ARE SUPPRESSED FROM LISTING. TO LIST ALL EDIT THIS LINE 

38860 IFPEEK(NZ!*1>»90 THEN 30U0 ELSE PRINTCHR*(PEEK<NZ!*2));CHR$(PEEK(NZ!»1)>; 

30070 'THE CONTENTS OF THE VARIABLE ARE POKED INTO THE DUMMY VARIABLE (XZ) 

38980 'OF THE APPPROPRIATE TYPE, WHICH IS THEN PRINTED 

38085 PRINTHIWC. »!...•", TZM>*' "; 

30090 FORKZ!««TOTZ!-1: P0KEVZ!(TZ!)*KZ!,PEEK(NZ!+3*KZ!>: NEXT 

30100 IFT2!«3THENPRINTXZ»,ELSEIFTZ!»2THENPRINTXZ^ELSEIFT2!MTHENPRINTffi 

30110 NZ!«*C!*TZ!*2: NEXTNZ!: PRINT: RETURN 



SAVE 102, 152 OR MORE ON ALL COMPUTERS. PERIPHERALS, t, SOFTWARE 

NO TAXES ON OUT-OF-STATE SHIPMENTS 

WARRANTIES WILL BE HONORED BY YOUR LOCAL 'RADIO SHACK (g) STORE. 

VERBATIM DISKETTES 13. 58 EACH. 

HENRY'S ENGINEERING CO 

P. 0. BOX 629 

PRINCE FREDERICK, MD 28678 

(381) 855-677? (381) 535-: 142 
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Dear Gordon: 

Bi closed is my renewal for another year of tho TRS-80 Ueera Group 
Hewaletter. I preferred tho prerioua booklet foraet, but I suppose I'll 
set used to the current loose-leaf format. The nain problem is that nov 
all issues cannot be filed together. 

I grestlj appreciated the BASIC renumbering program by B. Phelpa Catea 
in the February issue, but it does contain one small error: in line 400, 
the PBUT statement D-256«HH should be D-256*HH 

For my longer programs, I hare increased space for the program to be 
renumbered from 10701 bytea to 12701 bytes by leering out all RSIerks and 
spaces, and by making a few other minor changes. To do this, change 
statements in line 50: 



nDIT(l#rf) 

Also change statamanta in line 390i 
FOKI 21743.0 
POO 16548,240 
POO 16549,84 

Then to run, enter manually: 

POO 16548,32 
POO 16549,78 
POD 19999,0 
Rtf 

The rest of the operation is the i 



to 

to 

to 
to 
to 



MMT(8fl) 
9IW20000 

POD19743,0 

F0O16548,32 

POOL6549.77 



(instead of POO 16548,240) 
(instead of POO 16549,85) 
(instead of POO 21999,0) 
(same, except 7I0H gives 12701) 

as originally. 

Sincerely, 

Oelmer D. Binrlchs 
2116 S. 8. 377th Ato. 
Vaahougal, Washington 98671 



Dear Gordon and headers, 

I have some i/vtere sting tips and techniques 
for Level II users. 

1 . Make your own ? -d graphic characters 
First design your character using the 
boxes on the video display worksheet. 
Then figure out the grapics character 
code for each print position (2x3 area) 
across Lhe screen. You can do this using 
the method described by C'teve Mac Grejror 
in Newsletter ..'lO.Tnen you've printed all 
the characters you want on the current 
line, put in the control code for a down 
cursor (.,-26) , and a few back cursors 
(„'- f 24) , until you reached the desired 
position on that line.I'y program shows 
the technique more clearly. 

2 . Important :or noisema^ars 
According to official Kadio Ghack 
releases, flicking your relay may be 
hazardous to your T7.S-C0. Don't do it! 

3. Your 'J.? I - 1 c : \n -low h ice ma '■; e 

Turn your keybo-rd off to tho •orlc' . 
Just Poke I 6405 t 2. But remember, only 



a currently running (error-free) program 
can place you back into control with a 
Poke t 6405,1. Also don't hit reset or else 
your program will be lost since you'll 
have to power down. In another Poke you 
can break the link to your video monitor. 
Poke 16413, 1 .Keyboard is still in control 
but there is no current print-out on the 
monitor. To regain the display, put in 
your "orogram Tor type carefully) Poke 
16413*7. 



4. Ilo'v you can tell if a key is currently 
being pressed on your TftJ-30 Level II 
This is an excellent feature for real 
time games, doodle programs, etc. Unlike 
INKLY;* , which only records the initial 
depression of a key, this technioue can 
be used to tell if someone is currently 
pressing a particular key. This would 
allow you to write Software like... 
Holding down the left arrow will move a 
paddle to the left, holding down the 
right arrow will move a" paddle to the 
right and not pressing any keys will 
keep the paddle stable. riot wanting to 
take up more space in Gordon's excellent 
newsletter and being a money-starved 
capitalist in need of an expansion inter- 
face, I am selling a full report on how 
to access and use this hidden feature, 
as well as some software using the 
technioue for a mere ?2.00. Flease send 
check or money order to... 

Michael Chertok 

20 Butternut Dr. 

Pearl River, N.Y. 10965 

10 :L3iCL3AR500 

20 70R K»l TO 76iR2ADAi;'.p=KfrfCHRv(A)iil2XT K 

30 PRINTM$ 

100 ; :ATA 32, 130, l6if,32,32,152,129, 32, 26,24 

110 DATA 24,24,24,24,24,24,24,32,32,191.187 

120 DATA 183,191,32,32,26,24,24,24,24,24,24 

130 DATA 24, 24, 32, 32, 152, 191. 19 1 ,164,32,32 

140 DATA 26,24,24,24,24,24,24,24,24,32,130 

150 DATA 32 f 151,171,32,129,32,26,24,24,24. 

160 DATA 24,24,24,24,24 

170 DATA 32,130,140,133,138,140,129,32 



TRS-89 BUS CONNECTORS FOR HOHE-BREH INTERFACES. TOP QUALITY VIKINO 

AND 3-M, GOLD PLATED CONTECTS. SOLDERLESS TYPE TERMINATED IN 18" 48 
CONDUCTOR RIBBON CABLE 99. 95 SOLDER TAIL TYPE *6. 95. PRICES POSTPAID 
NY RESIDENTS ADD 6Z TAX. APPLIED INVENTION. RD 2. RT. 21, HILLSDALE, 
NY 12529 INQUIRE ABOUT OUR PARALLEL PRINTER INTERFACE FOR LEVEL II. 
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VOU OR VOUR SUBSCRIBERS MRV BE INTERESTED IN R MRV OF IMPRESSING 
FRIENDS WHEN RUNNING TRS-89 MICROCHESS. THE FOLLOWING MOVES HILL 
BERT THE NRCHINE IN 6 MOVES: 

1-KING'S PfiHN TO KP-2 E2-E4 1-KING'S PHHN TO KP-2 E7-E5 

2-KB TO QB-4 Fi-04 2-QP TO P2 D7-D5 

3-KB TO QKNT-3 C4-B3 PftHN TAKES PRWN D5-E4 

KBP TO KBP-3 F2-F3 4-PftHN TAKES PftHN E4-F3 

5-OJEEN TAKES PftHN D1-P3 5-KP TO KP-5 E5-E4 

6-OUEEN TftKES PftHN F3-F7 CHECKMfiTE ! ! 

THESE MOVES CHECKMATE MICROCHESS UITHOUT REGARD AS TO HHAT 
LEVEL <i>2> OR 3) IT IS IN. I HAVE GREAT SPORT WHEN SHOWING MV TRS-88 
TO CHESSPLAVING FIRENDS BECflUSE THEV DON'T BELIEVE THE PROGRftM 
IS ftS SOPHISTICATED AS IT IS THEV HILL IMMEDIATELV SIT DOWN TO 
WHIP THE MACHINE, AND 38 MINUTES LATER ARE PULLING THEIR HAIR OUT. 

I ENJOV THE NEWSLETTER IMMENSLV, BUT COULD VOU HELP WITH 
RUNNING MACHINE LANGUAGE PROGRAMS OR SUBROUTINES WITHOUT USING 
DEBUG OR OTHER ASSEMBLERS? 

THE NECESSARY STEPS ARE NOT TOO CLEAR IN THE LEVEL II MANUAL 

HAVE VOU INTERFACED ANYTHING OTHER THAN RftDIO SHACK EQUIPMENT 
TO VOUR TRS-88 IF SO/ I WOULD LIKE TO HEAR OF VOUR EXPERIENCES. 
PLEASE INCLUDE: TVPE OF EQUIPMENT, BRAND NAME, COSTS, INTENDED 
USES, PRBLEMS, DOWNTIME, GENERAL SPECIFICATIONS, ETC. 

IF A REPRESENTATIVE SAMPLE OF INFORMATION IS RECEIVED FOR A 
PARICULAR PIECE OF EQUIPMENT, I HILL COMPILE THE DATA INTO AN 
EQUIPMENT REVIEW FOR THE NEWSLETTER. WE COULD ALL BENEFIT FROM VOUR 
EXPERIENCE! 
SEND INFORMATION TO: 

DAVID R. KIMBEL 

RT 9 BOX 658 

FAVETTEVILLE, NC 28381 



THE BITPICKER'S TOOLBOX 

By Steve MacGregor, 3701 W Wethersf leld , Phoenix, Arizona 85029 

The following one-line program will cause LPRINT statements to 
behave like PRINT statements: 

POR 1-16421 TO 16428: POKE I,PEEK(I-8): NEXT I 

This Is useful for developing programs to run on a TRS-80 with a 
printer when you don't have one yourself, or for running programs 
with LPRINT statements without editing them all to PRINT. It 
works by copying the Video Device Control Block into the area for 
the Line Printer Control Block, so that whenever BASIC makes a 
call to the printer driver, it gets the video driver Instead. In 
effect, you have two cursors on the screen at the same time. 
However, it is not advisable to do both PRINT and LPRINT, as the 
automatic scrolling caused when one cursor peaches the end of the 
screen will scroll the whole screen without affecting other 
cursor. Also, a CLS command 'will not reset the "LPRINT" cursor 
to the upper left corner, bb It does the "PRINT" cursor. Try 
this Borne time to see how it looks, and get a feel for these 
limitations. 



i)ear uordon, 

-r.cloned is a encrulizod version of the code deduction game 
v riously called : i astermind " , "a: el:.', etc., :or Level l, 
4K. '('he player can \\ ry the decree of difficulty by setting 
the code generation parameters, -ho program in turn gives 
c. measure of the decree of difficulty h computing the number 
of non-unique codec th .t could be : encr.-ted. It is interestin, 
to see how many guesses on j ver; ,;e it takes to break the code 
as a function of the di ficulty. 

Notes on ouperba.,cls : 

Variables used: 

G Collects each ;uess us un integer (.11 - 999999) 
W Counts dibits of correct value, wronj position 
B Counts correct di;;its 

A(1J-A(6) id its of the code to be guessed 

A(7)-a(12) Dibits of the current guess 
a(1>)-a(18) if code digit is available to be matched 

1 if code and guess dibits match 

2 if code digit has been matched by value 
A (19) *V value of guess „1 

a(20) ".;" value of guess ,yl 
a(21) Integer -uess ?/l 
A(22)-A(24) ... results of guesses f,2 thru -;96 (eor.ee) 

Logic employed: 



100-120 
210-260 



270 
280 
500-^50 



440-450 
460-490 

510-5^5 
1000-1070 



Sets the randomizer 

Collects the game options. Last half of 260 
checks that enough digit values (C) are available 
for the number of diaits (D) chosen if duplicates 
are not allowed (£=l} 
Computes C to the D power 

Computes C factorial divided by D factorial 
uenerates the target code. If dupls ;re not 
allowed but the current digit is found to be one 
(flag F-l), the current digit is rejected 
Range checks the guess for the right number of 
di its (G must be between 10 to D power and 
10 to D minus 1) 

Stores the guess, breaks the integer into digits, 
range checks the digits, and counts the correct 
digits (B) 

If the code was not guessed, each remaining guess 
digit is compared to each remaining code digit, 
with matched" code digits bein marked against 
further matching 
isplays previous guesses and results 

Ted i-:. iicu 
byntropic by stems 

Ct. i-ouis, .0. 
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10 N*iY«2:CLS 

29 INPUT"WELCOME TO SUPERBAGELS. INSTRUCTIONS <Y/N) M 

38 ON I GOTO 109 

49 PRINTTAB<5>; "SUPERBAGELS IS fl DEDUCTION GAME IN WHICH VOU ARE TO" 

45 PRINT"ATTENPT TO GUESS fl STRING OF DIGITS <OR CODE) GENERATED BY THE" 

98 PRINT-PROGRAM THE PROGRAM HILL INGORH VOU AFTER EACH GUESS NOW MANY" 

55 PRINT'OF THE DIGITS IN VOUR GUESS ARE IN THE PROPER POSITION <P>, " 

68 PRINT-AND HOH MANY DIGITS ARE OF THE PROPER VALUE <V> BUT IN THE" 

65 PRINT-WRONG POSITION. VOU MAV REVIEW VOUR PREVIOUS GUESSES OR" 

70 PRINT-GIVE UP AT ANY TIME. ■ 

75 PRINT TAB<5>; "YOU HAY INCREASE THE DIFFICULTY OF THE GAME BY INCREAS-" 

80 PRINT-ING THE NUMBER OF POSITIONS IN THE CODE, BY INCREASING THE" 

85 PRINT-NUMBER OF VALUES AVAILABLE FOR EACH POSITION <0 IS NOT USED). " 

98 PRINT-AND BY ALLOWING THE SAME VALUE IN MORE THAN ONE POSITION. " 

95 PRINT TAB<5); "HAPPY DEDUCING!- 

188 INPUT-TO RANDOMIZE THE PROGRAM, ENTER A NUMBER BETWEEN 1-188 ";K 

ue if <K<i>*<ioiee> goto im 

128 FOR I -1 TO K:J-RND(32767):NEXT I 

288 CLS 

218 PRINTATe:PRINTAT8i : INPUT-ENTER MAXIUM DIGIT VALUE <2-9) -;C 

228 OINT<C) : IF <C<2>*<09> GOTO 218 

238 PRINTAT64:PRINTAT64; : INPUT" ALLOW DUPLICATE DIGIT VALUES <V/N) ";E 

248 IF <E01)*<E02) GOTO 238 

258 PRINTAT128:PRINTAT128; : INPUT-ENTER NUMBER OF DIGITS <2-€> -;D 

268 D-INT<D):IF <IK2>*<D>6)*<<E«1)*<C<D)) GOTO 258 

278 P»1:IF E-2 FOR 1-1 TO D:P«4 > *C:NEXT I 

288 IF E-l FOR I-l+C-D TO C:P«P*I:NEXT I 

298 PRINT-ONE OF"iP>" POSSIBLE VALUES IS NOW BEING GENERATED": I «1:A-1 

388 A<I)-RND<C):IF <E«2)*<I«1> GOTO 338 

318 F»8:FOR J-l TO I-1:IF fKJ>HKI> F-l 

328 NEXT J: IF F«l GOTO 388 

338 IF D>I THEN 1=1+1 GOTO 388 

488 W-8:B-8:F0R 1-1 TO D:A<I*12)»8:NEXT I 

418 PRINT-REVIEW <1>, GIVE UP <8), OR OUESS ";A;- *»j : INPUT G 

428 IF G<8 GOTO 418 

438 IF G«8 PRINT-VALUE HAS "j :FOR I«l TO D:PRINT A<I>; :HEXT I:PRINT:GOTO 958 

435 IF <G-1>*<A>1> GOSUB 1888: PRINT: GOTO 418 

448 J-l: FOR 1-1 TO D : J«18*J : NEXT I: IF G>J GOTO 418 

458 J-J/18:IF GCJ GOTO 418 

468 A<18*3*fi)»G:G-G/J:F0R IH TO D:A<I*6)-INT<G> 

478 IF<A<I*6><1>+<R<I*6»C> F«i 

488 IF A(I)"A<I46) B-B+1:A<I*12>«1 

498 G-18»<G-INT<G>*. 888881) NEXT I: IF F-l GOTO 4488 

588 IF B-0 PRINT-VOU HAVE DEDUCED THE VALUE IN ■; A; "GUESSES" : GOTO 958 

518 TOR 1-1 TO D: J-l: IF A<I+12>-1 GOTO 548 

528 IF <A<J)-A<I*€))*<A<J+12)-8> W*W+i:A<J+12)«2:GOT0 548 

538 J-J*1:IF J>0 GOTO 548 

535 GOTO 520 

548 NEXT I:PRINT TAB<46>> -P--;BiTAB<54)< -V»"; W 

558 B<16+3*A>-8:A<17*3*A>-W:A-A+1:G0T0 488 

958 INPUT"HANT TO PLAY AGAIN <Y/W 'i I 

968 IF 1-1 PRINT-GLAD VOU ENJOYED SUPERBAGELS. PLAY AGAIN SOON. VEND 

978 GOTO 288 

1888 CLS:FOR 1-1 TO 3:PRINTAT<18*I-12>, "• GUESS P V; :NEXT I 

1818 X-68:Z-8:F0R 1-1 TO A-l 

1828 IF X>42 X»5: 2-2*64 

1838 PRINT RT<X+2>, I; 

1848 PRINT AT<X*Z*3),A<18+3*I)> 

1858 PRINT RT<X+Z+10>. fi < 16+3*1 >. 

1868 PRINT RT<X*Z*12),A<17*3*I>; 

1878 X-X*18:NEXT I: RETURN 



Dear 3ob, 

Although still wilting for my first copy of your newsletter 
to arrive, I have however had the chanoe to read a friend* B cory* I 
learnt quite a bit <*nd in return thought you be interested in the 
'ollowing tip. f'y problem was a large game pro '-ram that took up all 
but 300 bytes of my 4K. I needed to include playing instructions but 
had no more room. tatf er ; use ny T+Bug to record the inctruotior.s 
in machine langioa.^e. heres how to do it: 

Plwt p»t ' EJUJ*' on screen then type CL.JVR to move it to the top. 
Type a line number followed by 15 spaces, then type your instructions. 
Avoid spilling over into the no t line. Yr>u have 12 lines at .our dis- 
posal, on the 13th cursorO), Load your T-Bue tape .ind type CIO^>. 

'.ow with T-Bug in memory, all the first 15 BjviOSB of each line 
vanish (now you see why we have to use 15 spaces). 

"'•-.ce a cle»n t.-.pe in your maohine and ready to record, lien 
type P 3c0^ i.-YV. The video portion of your "enory ( the instructions 
you have on your screen) now ^et saved to tape in machine language. 

"ext step is to return to BASIC, load your games program into 
memory and QSt ready to C3rtVE it. Load the 'Instruction* tape into 
the machine, and dump your basic ;ame onto the end of it. (I stopped 
my instruction tape before the end of the Trailer and saved my game 
from there on. 

When this new taps is finished, read it back into the TBS-60 and 
PRESTO. The instructions are printed onto the soreen just as they read 
f-x>m the tape - they take up no room in RAM. On the finish of these, 
another ' ^BY' is printed and you can load your game as normal. That's 
it folks .. 

E|y the way, whilst in T-Bug, have a look at the Video portion of 
the RAM. ty loading the AJCII set into this area they will be printed 
directly onto the screen. Kor instance, starting at },cfi (15 spaoee in 
from left margin ) I deposited all the Graphic set to see what they look 
like . 2A is the asterisk, °^ is the start of Graphics and mo on as per 
the codes in the books. Had a lot of fun but havo yet to find an easy 
way of {«ttin<j the codes from keyboard and putting them onto the screen. 

Hope thiB will be of some use and thanks for all the 
help you newsletter has been to me 
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* * + * * H B U G NEWS ***** 
MONTEREY BftY USERS' GROUP FOR THE TRS-88 
WILLIAM S. PITT, EDITOR 
P. 0. BOX GH, PACIFIC GROVE, Cfl 92956 
THE COMPUTER NUTS IN PflCIFIC GROVE ARE LUCKY TO HAVE 
A GROUP LIKE MBUG TO EXCHANGE PROGRAMS A HflRDHARE WITH. 
KEEP UP THE GOOD WORK AND KEEP THE NEWSLETTERS COMING. 

YOUR EDITOR 
R. GORDON LLOYD 



DUES: B6.80 PflVflBLE TO ALLAN HANDFORTH 

2ie E. ROM IE LANE, 
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